home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / teamwork / demo / disk1 / disk.a01 / TEXTE / SERIETW.SMM < prev    next >
Encoding:
INI File  |  1992-10-28  |  4.2 KB  |  304 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet III
  13. [lang]
  14.     7
  15. [desc]
  16.     
  17.     
  18.     
  19.     
  20.     
  21.     720313659
  22.     18
  23.     719271006
  24.     105
  25.     2
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Text Abstand
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [pg]
  52.     2
  53.     52 0 47 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  54.     76 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  55. [edoc]
  56. FUNCTION Twmakro()       ' f<\|>r CAS teamWorks
  57.  
  58.  
  59.  
  60. 'REM Abfrage, ob Twmacro <\|>berhaupt ausgef<\|>hrt werden soll:
  61.  
  62. abfrage=Decide("                    CAS teamWorks                              Soll das Makro zur automatischen Erzeugung von Seriendokumenten ausgef<\|>hrt werden ?")
  63.  
  64.  
  65. If (abfrage<<<;>1)
  66.  
  67.     Goto Twmacroend
  68.  
  69. EndIf
  70.  
  71.  
  72.  
  73. 'REM Alle offenen Fenster schlie<\_>en :
  74.  
  75. anz = GetOpenFileCount()
  76.  
  77. for i=1 To anz
  78.  
  79.     FileClose()
  80.  
  81. Next
  82.  
  83.  
  84.  
  85. 'REM Aus WIN.INI lesen :
  86.  
  87. Path$=GetProfileString$("tworks", "BerichtPfad")                 ' Pfad zum Berichtsverzeichnis.
  88.  
  89. NameNeu$=GetProfileString$("tworks", "BerichtNameNeu") ' Name des neuen Serien-
  90.  
  91.                                                                                               '    Dokuments (ohne Pfad).
  92.  
  93. Vorlage$=GetProfileString$("tworks", "BerichtVorlage")       ' Name der Vorlage (mit Pfad).
  94.  
  95. Daten$=GetProfileString$("tworks", "BerichtDaten")     ' Name der Steuerdatei (ohne Pfad).
  96.  
  97.  
  98.  
  99. 'REM Einen Backslash an den Pfad anh<\d>ngen, wenn nicht vorhanden :
  100.  
  101. If (Right$(Path$, 1)<<<;>"\")
  102.  
  103.     Path$=StrCat$(Path$, "\")
  104.  
  105. EndIf
  106.  
  107.  
  108.  
  109. 'REM Neuen Namen f<\|>r die AmiPro konforme Steuerdatei erzeugen.
  110.  
  111. 'REM    Entspricht dem Namen der alten Steuerdatei, aber mit der Endung ".sam" :
  112.  
  113. pos=0
  114.  
  115. For i=len(Daten$) To 1 Step -1
  116.  
  117.     If (Mid$(Daten$, i, 1)="." And pos=0)
  118.  
  119.         pos=i
  120.  
  121.     EndIf
  122.  
  123. Next
  124.  
  125.  
  126. If (pos<;>0)
  127.  
  128.     ApDaten$=StrCat$(Left$(Daten$, pos), "sam")
  129.  
  130. Else
  131.  
  132.     ApDaten$=StrCat$(Daten$, ".sam")
  133.  
  134. EndIF
  135.  
  136.  
  137.  
  138. 'REM AmiPro konforme Steuerdatei erzeugen und unter neuem Namen speichern :
  139.  
  140. New("~default.sty"  1 0  )
  141.  
  142. <:#274,9025>Type( ";<[>Enter]" )
  143.  
  144. <:#274,9025>FileOpen(StrCat$(Path$, Daten$)  24 "ASCII"   )
  145.  
  146.  
  147. AnswerMsgBox(Yes)
  148.  
  149. SaveAs(StrCat$(Path$,ApDaten$)  32 ""  ""   )
  150.  
  151. FileClose( )
  152.  
  153.  
  154.  
  155. 'REM Vorlage <\v>ffnen, mit Steuerdatei mischen, in das neue Serien-Dokument abspeichern
  156.  
  157. 'REM      und Vorlage schlie<\_>en :
  158.  
  159. FileOpen(Vorlage$  1 ""   )
  160.  
  161. MergeToFile(32, StrCat$(Path$,ApDaten$), StrCat$(Path$,NameNeu$)   )
  162.  
  163. AnswerMsgBox(No)
  164.  
  165. FileClose( )
  166.  
  167.  
  168.  
  169. 'REM Abschlu<\_>meldung : (ausgeklammert, bei Bedarf 'REM entfernen)
  170.  
  171. 'REM Message("CAS teamWorks                                        Twmacro erfolgreich beendet !")
  172.  
  173.  
  174.  
  175. 'REM Neu erzeugtes Serien-Dokument <\v>ffnen :
  176.  
  177. FileOpen(StrCat$(Path$,NameNeu$)  1  ""  )
  178.  
  179.  
  180.  
  181. Twmacroend:
  182.  
  183. END FUNCTION
  184.  
  185. >
  186.  
  187. [Embedded]
  188. 00002977
  189. >
  190. [macsum] 1
  191. Twmakro 0 0 10 0
  192. [macse]
  193. 14 Twmakro
  194. 0 2 "                    CAS teamWorks                              Soll das Makro zur automatischen Erzeugung von Seriendokumenten ausgef<\|>hrt werden ?"
  195. 13
  196. 8 1
  197. 6 1
  198. 5 1
  199. 18 1
  200. 11 00000220
  201. 10 00001187
  202. 0 1050
  203. 13
  204. 8 2
  205. 5 1
  206. 8 3
  207. 6 2
  208. 6 3
  209. 18 2
  210. 12 00000322
  211. 10 00000344
  212. 5 1
  213. 6 3
  214. 3 0
  215. 8 3
  216. 10 00000247
  217. 2 147 1
  218. 10 00000289
  219. 0 286 "tworks" "BerichtPfad"
  220. 13
  221. 8 4
  222. 0 286 "tworks" "BerichtNameNeu"
  223. 13
  224. 8 5
  225. 0 286 "tworks" "BerichtVorlage"
  226. 13
  227. 8 6
  228. 0 286 "tworks" "BerichtDaten"
  229. 13
  230. 8 7
  231. 0 807 "{4}" 1
  232. 13
  233. 7 "\"
  234. 18 1
  235. 11 00000577
  236. 0 16 "{4}" "\"
  237. 13
  238. 8 4
  239. 5 0
  240. 8 8
  241. 0 14 "{7}"
  242. 13
  243. 8 3
  244. 5 1
  245. 6 3
  246. 18 4
  247. 12 00000684
  248. 10 00000778
  249. 5 -1
  250. 6 3
  251. 3 0
  252. 8 3
  253. 10 00000608
  254. 0 15 "{7}" "{3}" 1
  255. 13
  256. 7 "."
  257. 18 0
  258. 6 8
  259. 5 0
  260. 18 0
  261. 1 1
  262. 11 00000765
  263. 6 3
  264. 8 8
  265. 10 00000650
  266. 6 8
  267. 5 0
  268. 18 3
  269. 11 00000868
  270. 0 806 "{7}" "{8}"
  271. 13
  272. 0 16 [X] "sam"
  273. 13
  274. 8 9
  275. 10 00000896
  276. 0 16 "{7}" ".sam"
  277. 13
  278. 8 9
  279. 2 101 1 "~default.sty" 1 0
  280. 0 6 ";[13]"
  281. 0 16 "{4}" "{7}"
  282. 13
  283. 2 102 1 [X] 24 "ASCII"
  284. 0 291 6
  285. 0 16 "{4}" "{9}"
  286. 13
  287. 2 104 1 [X] 32 "" ""
  288. 2 147 1
  289. 2 102 1 "{6}" 1 ""
  290. 0 16 "{4}" "{9}"
  291. 13
  292. 0 16 "{4}" "{5}"
  293. 13
  294. 2 110 3 32 [X] [X]
  295. 0 291 7
  296. 2 147 1
  297. 0 16 "{4}" "{5}"
  298. 13
  299. 2 102 1 [X] 1 ""
  300. 6 0
  301. 15
  302. 9
  303. 00003002
  304.